home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9311a.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  55 lines
  1. 100 REM * BASIC-CORNER  C 64
  2. 110 REM * HIGHSCORE-LISTE
  3. 120 REM * NIKOLAUS HEUSLER (8.93)
  4. 130 REM * ZWENGAUERWEG 18
  5. 140 REM * 81479 MUENCHEN
  6. 150 :
  7. 160 REM -- VERSION 1: EWIGE BESTENLISTE --
  8. 200 :
  9. 210 DIMNA$(15),PU(15):PRINTCHR$(147):REM BILDSCHIRM LOESCHEN
  10. 220 FORI=1TO15:NA$(I)="(LEER)":PU(I)=32-I*2:NEXT
  11. 230 PRINT:PRINT"LISTE VON DISKETTE LADEN? [J/N]
  12. 240 [161]A$:[139]A$[178]"N"[167]310
  13. 250 [139]A$[179][177]"J"[167]240
  14. 260 [153]:[153]"LISTE WIRD GELADEN
  15. 270 OPEN1,8,2,"BESTENLISTE,S,R
  16. 280 [129]I[178]1[164]15:[132]1,NA$(I),PU(I):[130]
  17. 290 [160]1
  18. 300 :
  19. 310 [153]:[153]"HIER IST DIE BESTENLISTE:
  20. 320 PRINT:FORI=1TO15
  21. 330 A$=RIGHT$(STR$(I),2):PRINT"PLATZ "A$": "NA$(I);
  22. 340 PRINTLEFT$(" .....................",23-LEN(NA$(I)));
  23. 350 PRINTRIGHT$("      "+STR$(PU(I)),6)
  24. 360 NEXT
  25. 400 :
  26. 410 PRINT
  27. 420 PRINT"BITTE 'STOP' EINGEBEN, UM ZU BEENDEN
  28. 430 [133]"IHR VORNAME";NA$
  29. 440 [139]NA$[178]"STOP"[167]810
  30. 450 [133]"ERGEBNIS (PUNKTE)";PU
  31. 600 :
  32. 610 [129]I[178]1[164]15
  33. 620 [139]PU[177]PU(I)[167]710
  34. 630 [130]
  35. 640 [153]:[153]"ES HAT LEIDER NICHT FUER EINEN PLATZ
  36. 650 PRINT"IN DER BESTENLISTE GEREICHT!
  37. 660 [137]310
  38. 700 :
  39. 710 K[178]15
  40. 720 [139]K[178]I[167]740
  41. 730 PU(K)[178]PU(K[171]1):NA$(K)[178]NA$(K[171]1):K[178]K[171]1:[137]720
  42. 740 PU(K)[178]PU:NA$(K)[178]NA$
  43. 750 [153]:[153]"SIE STEHEN JETZT AUF PLATZ"I"DER":[153]"BESTENLISTE!
  44. 760 GOTO310
  45. 800 :
  46. 810 PRINT:PRINT"DER VORGANG WURDE AUF IHREN WUNSCH":PRINT"ABGEBROCHEN.
  47. 820 [153]:[153]"BESTENLISTE AUF DISKETTE SPEICHERN? J/N
  48. 830 GETA$:IFA$="N"THENEND
  49. 840 IFA$<>"J"THEN830
  50. 850 PRINT:PRINT"LISTE WIRD GESPEICHERT
  51. 860 [159]15,8,15,"S:BESTENLISTE":[160]15
  52. 870 [159]3,8,2,"BESTENLISTE,S,W
  53. 880 FORI=1TO15:PRINT#3,NA$(I):PRINT#3,PU(I):NEXT
  54. 890 CLOSE3:END
  55.